home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of CD …rtainment & Home Learning / Explore the World of CD Entertainment and Home Learning (Magnum Design)(Macworld)(1995).iso / *Consumer Demo CD ƒ / Home Learning / MFIAD / DATA / Shared.Dir / 00337_Script_337 < prev    next >
Text File  |  1995-06-29  |  454b  |  16 lines
  1. on buttonpush buttonupC, buttondownC
  2.   set castlist = [:]
  3.   repeat with channel = 1 to 48
  4.     setaprop castlist, channel, the castnum of sprite channel
  5.   end repeat
  6.   set buttonS = getone(castlist, buttonupC)
  7.   puppetsprite buttonS, 1
  8.   set the castnum of sprite buttonS to buttondownC
  9.   updatestage
  10.   repeat while the mouseup <>1
  11.   end repeat
  12.   set the castnum of sprite buttonS to buttonupC
  13.   updatestage
  14.   puppetsprite buttonS, 0
  15.   
  16. end